library MYSHARE;

uses
  SysUtils,
  Classes;

var myNumber:Integer;  

Procedure IncreaseNumber; stdcall; export;
begin
   inc(myNumber);  
end;

Function GetNumber:integer; stdcall; export;
begin
   result:=myNumber;  
end;

exports
   IncreaseNumber index 1,
   GetNumber index 2;

begin
   myNumber:=0;
end.
